RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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O/P text to left of document 1e-ge8- 1384 9: 33: 45 rer tats tee: ris Page ! 


ZTITLE ‘O/P eget to Left a) 48 ment’ 
MODULE istops ( IDENT v04 
Br iss32t. ADDRESSING_MODE (EXTERNAL = LONG_RELATIVE 
, NONEXTERNAL = LONG-RELATIV VES) 
= 
BEGIN 


EPSRC ETE T SETS T TEE TTT TTT TTT CTT Preece cirri ci iii iii ricci ii iiiiiiit 
'‘@ 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


is hg SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
'@ Y IN ACCORDANCE ~ THE TERMS OF SUCH LICENSE AND WITH LL 


® 
& 
® 
® 
® 
& 
& 
® 
i H OF TW ANY OTHER * 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. . 
® 
os 
® 
ca 
® 
® 
® 
* 
® 
® 


ie pe INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
el SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 

ie DIGITAL_ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


See ReRA ARERR AAAAARAAAAAAAR AREA AA ETHER AAAAAAAAAAAeeRAeeeKeeee eee 


Soooooooooooooooo 
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' 

! 

ABSTRACT: Prefixes a Line with optional Listing information. 
00 ; ENVIRONMENT: Transportable 
00 AUTHOR: R.W. Friday CREATION DATE: December, 1978 
00 


+4 
' FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 
| 


VAX=11 Bliss-32 V4.0-74 


10 
LSTOPS O/P text to left of document 1besep 1384 90:33:88 
v04-000 14-Sep-1984 13:07:0 CRUNOFF .SRCJLSTOPS.BLI; 


Revision History 


; : 9) } XSBTTL "Revision History’ 

; 43 1 ' MODIFIED BY: 

; 65 46 1! 

s 6 » oe 010 REM00010 Ray Marshall 31-May-1984 

ao | § 1! Find tuning -- made output Lines numbers start at 1 instead 
: : r : of starting at 0. 

: 50 $69 1 i 009 REMO0009 Ray Marshall 16-May-1984 

; 1 bey : Added support for outputting the output Line number. 

: g 3 1 008 REROOOOS Ron Randall 07-Mar-1983 

s 4 1! Global edit of all modules. Updated module names, idents, 
; > 9034 copyright dates. Changed require files to BLISS library. 
te 0056 1 ine 

; 8 0057 1 


O/P text to left of document 18-50 Sep-1984 AX-11 Bliss-32 V4.0-74 Page 3 

8. 680 Module Level Declarations ats fi 99: 33; $5 RUNOFF .SRCJL fone: aries . (3) 

: 68 33 ! ZSBTTL "Module Level Declarations’ ; 
4 € 1. : 
: ef 1 ! TABLE OF CONTENTS: : 
3 «6D g 1 FORWARD ROUTINE : 
; 08 4 1 Lstops : NOVALUE, ‘ 
; 6 065 1 iseque : NOVALUE, ‘ 
; bes 1 oseque : NOVALUE; ‘ 
3 4 1 : 
Py 0 643 :3 ° 
3 4 $8 } INCLUDE FILES: : 
3 7 aT 1 LIBRARY "NXPORT:XPORT'; ! XPORT Library ; 
; a rs } REQUIRE "REQ:RNODEF'; ' RUNOFF variant definitions : 
H 76 U 0204 1 XIF DSRPLUS XTHEN P4 
H 77 U 0S 1 eo *REQ:DPLLIB'; ! DSRPLUS BLISS Library 3 
; Be 1 ZELSE 3 
$ 79 020 1 LIBRARY "REQ:DSRLIB'; ! DSR BLISS Library 3 
; ww 0208 1 XFI 3 
; 8 0209 1 3 
; ¢ 0210 1! : 
$ 8 0211 1: EXTERNAL REFERENCES: : 
ee -) 0 \¢ 1 i 3 
; 021 1 EXTER 3 
; 686 0214 1 FRA : FIXED_STRING 3 
; | (87 0215 1 GCA : GCA_DEFINITION : 
; «88 0 16 1 PHAN : PHAN DEFINITION, : 
3 89 021 1 TSF : TSF DEF INI TIONG $ 
s 0218 1 3 
4 91 0219 1 EXTERNAL ROUTINE 3 
of bsse 1 CONVBB; ; 
Te 0221 1 : 


text to left of dpcunent 
OPS == main control routine 


ZSBTTL "LSTOPS == main control routine’ 
GLOBAL ROUTINE Lstops (option_list, blank line) : NOVALUE = 


HCRecTOR SOSE:S3 Wad Pc Hne BT re 


LSTOPS 
¥84-000 -Sep-1 RUNOFF. OPS.BLI; (4) 


a] 


ae 
FUNCTIONAL DESCRIPTION: 


This routine is used to format the columns that preceed the normal 
document. These columns typically contain change bars, the draft flag, 
sequence numbers, and/or the entire document is shifted to the right. 


VMirWwr— 


These columns have to be set up for each and every Line that RUNOFF 
writes. In some cases, however, what is wanted is not the actual 
options, but simply sufficient spaces to skip over them; that can 
occur, for example, when LOUT has to overprint the Line to do 
underlining, etc. LSTOPS generates the requested information, or 
spaces, as applicable. 


NOTE: This entire routine can be replaced by a simple ‘'RETURN" 
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3 1 

3 1 

; 1 

; 1! 

; 1! 

7 1! 

, 1! 

. | 1! 

3 1! 

3 I 1! 

3 1 i 

. % 1! 

3 3 1! 

; 108 17 

; 109 ss 

s 110 1! 

s 393 1 3 

,; 1 § 7% 

: ; i re 1 if the Listing options are not wanted ever. 

: 5 4 | FORMAL PARAMETERS: 

: 117 44 1! OPTION LIST indicates which Listing epetene are to be processed. 
; : : r ! BLANK_CINE is TRUE if the Line is a blank one, FALSE otherwise. 
: 120 ar { IMPLICIT INPUTS: 

a § 49 1: FRA is implicitly set up to point to where the options are to be 
. ¢ 1! generated, 

3 : ¢ ; SF describes the record for which the options are to be generated. 
; 126 3 { IMPLICIT OUTPUTS: 

> 128 55 1! The Listing options are written into FRA, thereby Lengthening 

3 : , : : that fixed string. 

> 131 1 ' ROUTINE VALUE: 

3 : ¢ H ' : COMPLETION CODES: None 

: 1 61 1 ! SIDE EFFECTS: None 

3 62 1 !-- 

a 65 1 

i ac 

; 139 6 : 

3; 140 026 

: «141 o8 IF .BLANK_LINE 

3 | $ THEN 

: 14 0 i 

3 «6144 71 'This is a quick test to avoid lots of processing for empty Lines. 
3 ie? if -OPTION_LIST EQL LSTOPS_NONE 

; 129 7% '!Put nothing on blank Lines. 

3 re o? RETURN; 

: 150 6 ‘Decide which chonee bar information to use: that which applies to blank Lines, 
; 6151 0278 ‘or that which applies to text on Lines. 
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10 
ett of document IEHSReHBEE MO:88363 Rad 
e tee ies 


!Use the change bar information that applies to whit , 
_ =  TSF_BARS pplies to white space 


'Use the change bar information that applies to text. 
BARS = TSF_HOBARS: a 


IF NOT .BLANK_LINE 'CAvoid shifting blank Lines to the right because of /RIGHT) 
OR (.BARS AND .OPTION LIST<BAR__>) ! ° . 
OR (.GCA_DEBUG_CND AND .OPTION-CIST<CND__> AND (.TSF_DRAFT_FLAG NEQ %C' ')) 
OR (.GCA_CMD_ISQ AND .OPTION_LTST<1SQ__ 

— (.GCA_CMD_OSQ AND .OPTION_LIST<OSQ__>) 


renengs Ders or sequence number or draft flag requested. 


Peg CAO AT (This won't get done for blank Lines to which nothing else applies) 


'Shift output to the right, as requested. 


INCR I FROM 1 TO .PHAN_RIGHT DO 
FS_WCHAR (FRA, %C° '); 


IF ore cae isq THEN 
seque T.option_list<isq__>); 


IF .gca_cmd_osq THEN tu 
oseque T.option_list<osq__>); 1 / 


IF .GCA_DEBUG_CND 

THEN 

‘Output the draft flag. 
FS_WCHAR (FRA, %C° ');!Single space before draft flag. 
IF .OPTION_LIST<CND__> 
THEN 


‘User wants to see the draft flag, output it. 
og SS (FRA, .TSF_DRAFT_FLAG) 


d: 
E 


! User said: /SEQUENCE. 


RNAL=OUTPUT_LINE_NUMBER 


'User does not vant to see the draft flag, output a space. 


FS_WCHAR (FRA, %C* 
4 ee (FRA, 2C* ');!Single space after draft flag. 


pprogeas change bar field. 
AND .OPTION_LIST<BAR__>) 
(.GCA_EVER_BARS j chenge bars ever seen? 
AND ROT .BLANK_LINE) 'In this 
THEN 
BEGIN 


‘Output the change bar. 


'Change bars wanted? 


case output something. 
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LSTOP O/P text to left of documen 16-Sep-1984 255:4 AX-11 Bliss<-32 V4.0-74 
vitectie LSTOPS == =i control ay 13-88-1382 90:33:95 RUNOFF SREILS TORS OL 643 Age 
: 209 5 IF NOT (.OPTION_LIST<BAR__> AND .BARS) 
: 210 : 4 THEN - a Oe eer 
: 11 8 4 ‘Don't want change bar at all. 
3 \¢ 3 ; FS_WCHAR (FRA, %C° ') 
; 1 mH 4 FS_WCHAR (FRA, .TSF_BAR_CHAR); 
: 21 0343 4 FS_WCHAR (FRA, %C' '); 'Two spaces after the change bar field. 
: 217 0344 4 FS"WCHAR (FRA, %C' '): ° 9 
; 18 6 45 END; 
3 ; 0 Oe? END; 
; 1 46 
3 dée 0349 1 END; ‘End of LSTOPS 
-TITLE LSTOPS O/P text to left of document 
-IDENT \V04-000\ 
.EXTRN FRA, GCA, PHAN, TSF 
.EXTRN CONVBB 
-PSECT $CODE$,NOWRT,2 
003C 00000 .ENTRY LSTOPS, Save R2,R3,R4,R5 ; 
55 000000006 EF 9E 00002 MOVAB TSF, R : 
54 000000006 EF 9E 00009 MOVAB GCA+76, R4 : 
53 000000006 EF 9E€ 00010 MOVAB FRA+4, R3 : 
06 08 AC €9 00017 BLBC BLANK_LINE, 1$ : 
04 AC DS 00018 TSTL OPTION_LIST : 
01 12 OOO1E BNEQ 1$ : 
04 00020 RET : 
50 65 D0 00021 1$ MOVL TSF, RO : 
08 08 AC €E9 00024 BLBC BLANK_LINE, 2$ : 
52 7c =A 01 00 Ff 990 8 EXTZV #0, #T, 124(R0), BARS ; 
52 0080 co 01 00 EF 00030 28: EXTZV #0, #1, 128(RO), BARS : 
2B 08 AC €9 00037 3s: BLBC = BLANK_LINE, 8$ : 
04 52 €9 90038 BLBC = BA : 
24 04 AC €E8 000 BLBS OPTION_LIST, 8$ : 
0B 28 AG 02 £1 00042 4s: BBC #2, GCA+116, 5$ : 
06 04 AC 01 €1 0004 BBC #1, OPTION LIST, 5$ : 
20 30 AO D1 0004C CMPL 48(RO), #32 ; 
14 iF 09 BNEQ : 
05 64 3 E 5$ BBC ie. GCA+76, 6$ : 
0B 04 AC EO 003 BBS #2, OPTION_LIST, 8$ : 
01 64 4 EO 038 6$: BBS #4, GCA+76, 7$ : 
4 0005F RET : 
01 04 ac 04 EO 09 9 7$: BBS #4, OPTION_LIST, 8$ : 
4 00 RET : 
15 64 98 E1 99 8$: BBC #3, GCA+76, 11$ : 
0 D4 0006A CLRL : 
9 11 9 C BRB 10s : 
00 «—B3 90 ; 9$: MOVB #32, @FRA+4 : 
D 0 INCL FRA+4 : 
08 ASD 74 INCL FRASI2 : 
EF 50 00000000G EF F3 00077 108: AOBLEQ PHAN+20, I, 9$ : 


wr 
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268 bytes, Routine Base: S$CODE$ + 0000 
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left of document 1b-se -1984 55:4 AX-11 Bliss-32 V4.0-74 
/P seq. number or spaces 12-8 08-1 984 90:33:65 RUNOFF .SRC Tefoe BLI g 


0 
0 

ZSBITL ‘ISEQUE == 0/P seq. number or spaces’ 

ROUTINE iseque (sequence) : NOVALUE = 

! 

! 


t 
U 


me 


le+ 
} FUNCTIONAL DESCRIPTION: 


ISEQUE either generates the input sequence number on the record, or 
else fills the spot with spaces. 


i FORMAL PARAMETERS: 


If SEQUENCE is TRUE, the sequence number is provided; if FALSE, 
the spot is space filled. 


i IMPLICIT INPUTS: 


' 
' 
' 
' 
' 
' 
' 
' 
' 
! 
: It is assumed that FRA is set up to point to the area where 
the sequence number is to go. 

' 

' 

' 

' 

' 

' 

' 


i IMPLICIT OUTPUTS: None 


i ROUTINE VALUE: 
i COMPLETION CODES: None 


i SIDE EFFECTS: None 


BEGIN 
IF NOT .SEQUENCE 
THEN 


‘Caller doesn't want sequence numbers though. 
‘FILL sequence number field with spaces. 


INCR I FROM 1 TO 11 DO 
FS_WCHAR (FRA, X%C° °) 


: ler does want the sequence numbers. 
BEGIN 
LOCAL 
FILL 
KHARS : VECTOR (10), 
KHAR_COUNT; 


'For honest-to-goodness 
IF .TSF_SEQN_FLAG '$OS Style sequence numbers 
'zero-fill on the left. 
FILL = %C'0" 


ELSE ‘Otherwise 
FILL = 2C° °; ispace-fill the record counter. 


INCR I FROM 1 TO (5 = .KHAR_COUNT) DO !Put in fill characters (spaces or ‘0's) 
FS_WCHAR (FRA, .FILL); 


0408 


ANWANNAAAAWIWANANAAAIAIII DIAN PINPONONDS 9 9 I 9 SS SS SS SS SS 
° oases 


CONVBB (.TSF_ISEQN, KHARS, KHAR_COUNT, 10); 'Convert input sequence number to character. 


— sss —— - ————— 
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LSTOP 0/P text to left of document bese 1984 00:55:4 AX-11 Bliss-32 V4.0-74 Pa 9 
V8. 2080 ISEQUE == 0/P seq. number or spaces 12-808- 138 90:33:65 RUNOFF .SRCJLSTOPS.BLI; - (5) 
; 28 40 DECR I FROM .KHAR_COUNT TO 1 DO ‘Output record/sequence number. : 
i 409 FS_WCHAR' (FRAT .KHARS C.1 = 11); : : 
3 5 411 FS WCHAR (FRA, %C'/'); jgree® ne j pee den Line and page numbers. : 
3 ° tig CONVBB (. TSF_IPAGEN, KHARS, KHAR_COUNT, 10); !Convert page number. ; 
; 288 414 INCR I FROM 1 TO (3.= .KHAR_COUNT) DO !Pad page counter. ; 
; 89 419 FS_WCHAR (FRA, %C° '); ; 
; 291 0419 DECR I FROM .KHAR_COUNT TO 1 DO !Output page number. : 
: 33 B49 FS_WCHAR (FRA, .KHARS [.I = 1]); ; 
; 294 420 FS_WCHAR (FRA, %C° '); !Two spaces before whatever follows. : 
3 95 0421 FS WCHAR (FRA, %C° "); $ 
; 296 04 ¢ § ENB; ; 
; aor 04 $ 
; 298 0424 1 END; 'End of ISEQUE ; 
007C 00000 ISEQUE: .WORD Save R2,R3,R4,R5,R6 ; 0352 F 
56 00000000G EF 9E 00002 MOVAB CONVBB, R6 3 3 
55 000000006 EF 9E 00009 MOVAB TSF, R5 : : 
54 000000006 cf 9E 00010 MOVAB FRA+4, R4 : 3 
5E C C2 00017 SUBL2 #44, SP : 3 
11 04 AC €E8 OOOIA BLBS SEQUENCE, 2$ ; 0380 3 
50 01 DO OOO1E MOVL : 0385 3 
00 84 20 90 00021 1$ MOVB #32, aFRA+4 : 0386 : 
64 D6 00025 INCL FRA+4 3 : 
08 A4 6 00027 INCL FRA+12 3 ; 
F3 50 0B F3 0002A AOBLEQ #11, I, 1$ : 0385 3 
04 0002E RET r 3 
OA OD poe 2$ PUSHL #10 3: 0396 3 
04 AE 9F 00031 PUSHAB KHAR_COUNT : : 
0c ae 9F 00034 PUSHAB KHARS 3 : 
50 65 D0 00037 MOVL TSF, RO 3 ‘ 
48 AO DD itis PUSHL 72(RO) 3 : 
66 04 4 0030 CALLS #4, CONVBS $ : 
51 65 D 0040 MOVL f : 0399 ; 
03 10 Al £9 0004 BLBC 16(R1), 3$ : ; 
5 30 DO 00047 MOVL #48, FILL > 0401 : 
9 11 BReA BRB 4 r $ 
53 00 004C 3$: MOVL #32, FILL : 0403 3 
50 05 g C3 OOO4F 4$: SUBL3 KHAR_COUNT, #5, RO : 0405 3 
D4 0005 CLRL I 3: 0406 : 
9 11 00 BRB 3 3 
00 3«B4 3 90 00057 5$ MOVB FILL, @FRA+4 : 3 
64 06 098 INCL FRA ; : 
08 A4 dg D INCL FRA+12 3 ; 
F3 52 50 F ve 6$ AOBLEQ RO, I, 5$ 3; 0405 3 
50 6E Hy 4 0 ro Avot #1, KHAR_COUNT, I ; 0408 : 
00 =«6B4 6E40 F6 O06n 7$ CVTILB KHARS-4CI], @FRA+4 ; 0409 é 
64 06 bgt INCL FRA+4 3 3 
08 <A4& 06 00071 INCL FRA+12 : 3 


wn 
Ow 


; Routine Size: 


00 


00 


00 


00 


00 


0/P text to left of document 
ISEQUE == 0/P seq. number or spaces 


F3 
B4 


Routine Base: 


08 A4 
OA 

oe AE 
C «(OA 
4C A 
$f 

93 

0 

64 

08 A4 
50 

01 

OA 

6E40 

64 

08 A4 
50 

20 

64 

08 Ad 
20 

64 

08 A4 


SCODES + 010C 


o 
wn 


OOOCOCCOCOCOCOCCOOOOOCOOOOOOOOOOOOOoO 
SOOoOQOCoooooooQoooooooooQoooooooooe 


COOCCCOOCOCCOOCCOOCOCOOCOOOOCOOOOCOOOoO 
roma oonNS -— 


FOROS ROMO AA | HWP PAO FWD B®NOOOOouw 
DWNMNOA SPOWOM ONO 


oVUuoOOTITC ONION ONS OO-VoeO"OOoOOoOUITIT On" 


4 AX-11 Oi ieee 
0 RUNOFF .SRCJL 
1,_7$ 

#47, aFRA+G 

FRA+4G 

FRA+12 

#10 

KHAR_ COUNT 

KHARS 

6(R1) 

#4, CONVBB 
KHAR_COUNT, #3, RO 


RO, I, 9$ 

#1, KHAR_COUNT, 1 
KHARS=4C1], aFRA+4 
FRA+4 

FRA+12 

tL, US 

#32, aFRA+4 

FRA+4 

FRA+12 

#32, QFRA+4 

FRA+4 

FRA+12 


Be Se Se Se Be Se Ge Be Be Se Se Se Be Be Ge Be Se Fe Fe Se Be Ge Ge Fe Ge Se Fe Se Se 


06 


CONAMUEWN (OO OONAUE WN — O OONAOUSWN OO OONOUSWN—O0O~s 


PUT BS BS BEE EE EWN. IAI RNIN NININI NPD 2 2 OO OS SOOO 


WWWAAIA WII NAIA AAW NANA AAA AWAAN ANNAN NAAW 


OuvFwn—oo 


uw 


SNF AAAAAAAIAAIAAAIAIII NIAID APUNIIPUNIDIDID 9 2 9 9 9 9 St SS SS SS SS SS 


SoOoOoOOooOoooooo 
oe or ot ot et ot et et ee 
CoO NNN NNN NN 
—OVOONOULS WN — 


xt to 


0 
ZSBTTL_ ‘OSEQUE == 0/P 0/P Line number or spaces' 
ROUTINE oseque (sequence) : NOVALUE = 


144 


11 

Left of document beg -1984 255:4 AX-11 Bliss- 
/P O/P Line number or spaces 1278 08- 1 3be 90:33:65 ata Ne 
T 
1 


FUNCTIONAL DESCRIPTION: 


OSEQUE either generates the output Line number on the record, or 
else fills the spot with spaces. 


i FORMAL PARAMETERS: 


If SEQUENCE is TRUE, the sequence number is provided; if FALSE, 
the spot is space filled. 


i IMPLICIT INPUTS: 


It is assumed that FRA is set up to point to the area where 
the sequence number is to go. 


i IMPLICIT OUTPUTS: None 
i ROUTINE VALUE: 


' COMPLETION CODES: None 
i SIDE EFFECTS: None 
BEGIN 


IF NOT .sequence THEN 
Caller doesn't want Line numbers, so fill Line number field with spaces. 


IF “dlege 14 THEN 
ELS INCR 7 FROM 1 TO 10 DO FS_WCHAR (fra, %C° ‘) 


INCR i FROM 1 TO 5 DO FS_WCHAR (fra, %C° °) 
‘Caller does want the sequence numbers. 


BEGI 

LOCAL 
khars : VECTOR (10), 
khar_count; 


! For honest-to-goodness SOS style sequence numbers: 


IF .TSF_SEQN_FLAG 
' zero-fill on the left. 
FILL = %C'0O' 


ELSE ' Otherwise 
PMA eS OE* *s : space-fill the record counter. 


IF “on-'* THEN 
CONVBB ( (-9ca_page_cnt + 1) ! Convert “‘real’’ page number. 
,khars 


RUNOFF .SRCJLS 


_—— 


68 


WWAIANNWNNNANW Ww 


COMOoN NAAN NNO 
—OVDODONOULSWN—O”O 


Www 
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S 


F 11 
O/P text to left of document 16-Sep-1984 AX-11 Bliss-32 V4. 
OSEQUE -- 0/P 0O/P Line number or spaces 14-Sep- aets 90:33 ‘68 RUNOFF .SR REIL 3454 PS. ‘Bre 
4 4 kh 
bees gr count 
0485 4 INCR i FROM 1 TO (4 = .kh t) DO 'p - 
sts 4 FS_UCHAR (fea, XC! rapa i) ad page counter 
Bs 4 DECR i FROM .khar_count T0_1 DO ‘Output ‘ 
eh : FS_WCHAR (fra, shhare C.i - 1)); ee 
84 Fata (fra, %C°.") ! Dot separating Line and page numbers. 
49 
biee CONVBB ( gphen. Lines_tp+1 ! Convert Line number to character string 
0496 akh 
a9? -khar count 
0499 INCR i FROM 1 (3 = .kh t) DO 'p i i h be 
0500 FS_WCHAR tive. nite’ count) D ut in fill characters (spaces or ‘'0's) 
B26 DECR i FROM .khar_count T0 1 D 'OQutput Line number. 
0908 FS_WCHAR (fra, .khars C. e oan: 
0505 FS_WCHAR (fra, %C° '); 'T f h 2 
0306 3 be-urhan (fra! tee ye wo spaces before whatever follows 
050 § ENB; 
0508 
0509 1 END; ‘End of OSEQUE 
003C 00000 OSEQUE: .WORD Save R2,R3,R4,R5 
55 00000000G EF 9E 44 MOVAB CONV 
54 000000006 EF 9E 0000 MOVAB GcAvet6 RG 
53 000000006 EF 9E 00010 MOV FRA+4, R3 
36 2c C2 00017 SUBL erase p 
2 04 AC €E OO1A BLBS SEQUENCE 
11 01 AG 6 €1 OO1F BBC 6, atte 2$ 
50 1 D0 000 MOVL I 
00 «2B 90 00026 1$ v8 a aFRA+4 
63 D6 O002A INCL FRA+4 
08 A 06 : C INCL FRA+12 
F3 50 OA bi 05 f AOBLEQ #10, I, 1$ 
5 9} 8 00 ¢ MOVL “i, 1 
00 8B 9 7 3$ MOVB #32, aFRA+4 
63 D6 INCL FRA+4 
08 A D6 INCL FRA+12 
F3 50 05 F 040 AOBLEQ #5, I, 3$ 
04 44 RET 
30 Soonooggs EF 08 45 4$: MOVL TSF, RO 
10 AO E 4 BLBC 16(RO), 5$ 
oO 3 MOVL #48, FILL 
1 BRB 
52 dO 55 5$ MOVL #32, FILL 


MA 
VO 


Se “11 Bliss-32 V4.0-74 
10-88b-198e 99:07:68 — ERUNOFE’SREaLSfOhS OL, 
sot ati Sarit (0:68:83 ah 
et AS aS BA Line number or spaces : rate: a m Sen om 
6 €1 : . ‘ 
BU ty Be coon 
a a a ee 
‘ y 8 i SUBL KHAR COUNT, #4, RO 
2 ' i ba : $3 CLRL Y 
8 9) b0075 78: MOV «#32, @FRASG 
ee 8 ee ee 
RS BR ag, tea GaP? 1 
£9 ar a1 ei 008 ADDL3 #1, KHAR_COUNT, I 
" 7 om iI BOBS EVILB KHARS=4C1J, aFRA+4 
the ves be O00BD  =NCL”. Rate 
08 As D6 8008F INCL ERASI2 
63 2 60 $0098 ie MOVB #46, aFRA+4 
wh oe INCL FRA+ 
63 D6 00099 ERAS | 
A306 00098 INCL 
a a ee 
RR ee Pe, ur 
mie oo Bie oe BN Gee eo 
= ~ 8F ba 00085 CRE 
93 40 00089 MOVE FILL, @FRA+G 
Pee 35 6 $00BD = INCL  FRA+4 
8 8) PS Sooee ROLE ROS I. 128 
59 ar Al Ci o00c6 —_ ADDL3 #1, KHAR_COUNT, 1 
= 20 Fe o0dce EVTLB KMARS-6C1, aFRA+4 
eh hed ores be cool Inet’ Rate 
°F 8 PS doops SO6GTR 1. 148 
63 3 50 00p9 = MOVB #52. aFRAt4 
xsl ag 3 D6 000DD INCL - FRA* 
a re 
sf i 33 BS O00E INCL  FRAS4 
RS be O00ES INCL  FRA#+12 
on be OURS RET 


; Routine Size: 236 bytes, Routine Base: $CODE$ + 0105 


'End of module 
385 
386 


Bete Ge Ge Ge 
Sete Se Se Se Se 

Sete Ge Se Se Be 

Sete Se Ge Ge Se Ge Ge Se Se Se Ge Se Ge Se Se Se 

Pete Se Be Se Ge te 

Sete Se Se Se Ge te 


- OSEQUE == 0/P 0/P Line number or spaces RUNOFF .SRCJLSTOPS.BLI 
: PSECT SUMMARY 
; Name Bytes Attributes 


SCODES 705 NOVEC,NOWRT, RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


aera Tae, ee. a = Symbols -------- Pages Processing 

: File Total Loaded Percent Mapped Time 

: _$255$DUA28:(SYSLISIXPORT.L32;1 9 0 252 :00. 

; BS TEttinNs t tRUNDFE SRCIDSRL 18, L32;1 1348 36 ; 86 $0:00:8 

; COMMAND QUALIFIERS 

3 BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:LSTOPS/OBJ=OBJ$:LSTOPS MSRC$:LSTOPS/UPDATE=(ENH$:LSTOPS) 
; Size: 705 code + 0 data bytes 


; me: 
; Elapsed Time: 00:31. 


070 
: Lexemes/CPU-Min: 289a5 
3 ry Used: 111 pages 
; Compilation Complete 


LR yOF O/P text to left of document 1b-ben-1 - 384 90: 33: 45 AX-11 Blis Leer ee 2 V4. ores 
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Y 


L EQUIPMENT CORPORA 
ENTIAL AND PROPRIET 


AH-BT13A-SE 
VAX/VMS_V4.0 


TA 
ID 


DIGI aR 
CONF = 


0343 


